home *** CD-ROM | disk | FTP | other *** search
/ VRML Browsing & Building Cyberspace / VRML - Browsing and Building Cyberspace.iso / tspcdemo / set44 < prev    next >
Text File  |  1995-03-02  |  5KB  |  381 lines
  1. %%BeginResource: procset Adobe_typography_AI3 2.0 0
  2. %%Title: (Typography Operators)
  3. %%Version: 2.0 
  4. %%CreationDate:(5/31/90) ()
  5. %%Copyright: ((C) 1987-1990 Adobe Systems Incorporated All Rights Reserved)
  6. currentpacking true setpacking
  7. userdict /Adobe_typography_AI3 48 dict dup begin put
  8. /initialize
  9. {
  10. /TZ
  11.  where
  12.     {
  13.     pop
  14.     }
  15.     {
  16.     Adobe_typography_AI3 begin
  17.     Adobe_typography_AI3
  18.         {
  19.         dup xcheck
  20.             {
  21.             bind
  22.             } if
  23.         pop pop
  24.         } forall
  25.  end
  26.     Adobe_typography_AI3 begin
  27.     } ifelse
  28. } def
  29. /terminate
  30. {
  31. currentdict Adobe_typography_AI3 eq
  32.     {
  33.  end
  34.     } if
  35. } def
  36. /modifyEncoding
  37. {
  38.     /_tempEncode exch ddef
  39.     
  40.     /_pntr 0 ddef
  41.     
  42.     {
  43.         counttomark -1 roll
  44.         dup type dup /marktype eq         
  45.         {
  46.             pop pop exit
  47.         }
  48.         {
  49.             /nametype eq
  50.             {
  51.                 _tempEncode /_pntr dup load dup 3 1 roll 1 add ddef 3 -1 roll
  52.                 put
  53.             }
  54.             {
  55.                 /_pntr exch ddef                    
  56.             }
  57.             ifelse
  58.         }
  59.         ifelse
  60.     }
  61.     loop    
  62.     
  63.     _tempEncode
  64. }
  65. def
  66. /TE
  67. {
  68.     StandardEncoding 256 array copy modifyEncoding 
  69.     /_nativeEncoding exch def
  70. } def
  71. %
  72. /TZ        
  73. {
  74.     dup type /arraytype eq {/_wv exch def} {/_wv 0 def} ifelse 
  75.     /_useNativeEncoding exch def
  76.     pop pop
  77.     
  78.     findfont _wv type /arraytype eq {_wv makeblendedfont} if dup length 2 add dict
  79.     
  80.  begin
  81.     
  82.         mark exch
  83.         {
  84.             1 index /FID ne { def } if cleartomark mark
  85.         }
  86.         forall
  87.         pop
  88.         
  89.         /FontName exch def
  90.         
  91.         counttomark 0 eq
  92.         {
  93.             1 _useNativeEncoding eq
  94.             {
  95.                 /Encoding _nativeEncoding def
  96.             }
  97.             if
  98.             cleartomark
  99.         }
  100.         {    
  101.             /Encoding load 256 array copy 
  102.             modifyEncoding /Encoding exch def
  103.         }
  104.         ifelse        
  105.         FontName currentdict
  106.  end
  107.     
  108.     definefont pop
  109. }
  110. def
  111. /tr
  112. {
  113. _ax _ay 3 2 roll
  114. } def
  115. /trj
  116. {
  117. _cx _cy _sp _ax _ay 6 5 roll
  118. } def
  119. /a0
  120. {
  121. /Tx
  122.     {
  123.     dup 
  124.     currentpoint 3 2 roll
  125.     tr _psf
  126.     newpath moveto
  127.     tr _ctm _pss
  128.     } ddef
  129. /Tj
  130.     {
  131.     dup
  132.     currentpoint 3 2 roll
  133.     trj _pjsf
  134.     newpath moveto
  135.     trj _ctm _pjss
  136.     } ddef
  137.     
  138. } def
  139. /a1
  140. {
  141. /Tx
  142.     {
  143.     dup currentpoint 4 2 roll gsave
  144.     dup currentpoint 3 2 roll
  145.     tr _psf
  146.     newpath moveto
  147.     tr _ctm _pss
  148.     grestore 3 1 roll moveto tr sp
  149.     } ddef
  150. /Tj
  151.     {
  152.     dup currentpoint 4 2 roll gsave
  153.     dup currentpoint 3 2 roll
  154.     trj _pjsf
  155.     newpath moveto
  156.     trj _ctm _pjss
  157.     grestore 3 1 roll moveto tr sp
  158.     } ddef
  159.     
  160. } def
  161. /e0
  162. {
  163. /Tx
  164.     {
  165.     tr _psf
  166.     } ddef
  167. /Tj
  168.     {
  169.     trj _pjsf
  170.     } ddef
  171. } def
  172. /e1
  173. {
  174. /Tx
  175.     {
  176.     dup currentpoint 4 2 roll gsave 
  177.     tr _psf  
  178.     grestore 3 1 roll moveto tr sp 
  179.     } ddef
  180. /Tj
  181.     {
  182.     dup currentpoint 4 2 roll gsave 
  183.     trj _pjsf
  184.     grestore 3 1 roll moveto tr sp 
  185.     } ddef
  186. } def
  187. /i0
  188. {
  189. /Tx
  190.     {
  191.     tr sp
  192.     } ddef
  193. /Tj
  194.     {
  195.     trj jsp
  196.     } ddef
  197. } def
  198. /i1
  199. {
  200. W N
  201. } def
  202. /o0
  203. {
  204. /Tx
  205.     {
  206.     tr sw rmoveto
  207.     } ddef
  208. /Tj
  209.     {
  210.     trj swj rmoveto
  211.     } ddef
  212. } def
  213. /r0
  214. {
  215. /Tx
  216.     {
  217.     tr _ctm _pss
  218.     } ddef
  219. /Tj
  220.     {
  221.     trj _ctm _pjss
  222.     } ddef
  223. } def
  224. /r1
  225. {
  226. /Tx
  227.     {
  228.     dup currentpoint 4 2 roll currentpoint gsave newpath moveto
  229.     tr _ctm _pss 
  230.     grestore 3 1 roll moveto tr sp 
  231.     } ddef
  232. /Tj
  233.     {
  234.     dup currentpoint 4 2 roll currentpoint gsave newpath moveto
  235.     trj _ctm _pjss
  236.     grestore 3 1 roll moveto tr sp 
  237.     } ddef
  238. } def
  239. /To
  240. {
  241.     pop _ctm currentmatrix pop
  242. } def
  243. /TO
  244. {
  245.     iTe _ctm setmatrix newpath
  246. } def
  247. /Tp
  248. {
  249.     pop _tm astore pop _ctm setmatrix 
  250.     _tDict begin /W {} def /h {} def
  251. } def
  252. /TP
  253. {
  254.  end
  255.     iTm 0 0 moveto
  256. } def
  257. /Tr
  258. {
  259.     _render 3 le {currentpoint newpath moveto} if
  260.     dup 8 eq {pop 0} {dup 9 eq {pop 1} if} ifelse
  261.     dup /_render exch ddef
  262.     _renderStart exch get load exec
  263. } def
  264. /iTm
  265. {
  266. _ctm setmatrix _tm concat 0 _rise translate _hs 1 scale
  267. } def
  268. /Tm
  269. {
  270. _tm astore pop iTm 0 0 moveto
  271. } def
  272. /Td
  273. {
  274. _mtx translate _tm _tm concatmatrix pop iTm 0 0 moveto
  275. } def
  276. /iTe
  277. {
  278.     _render -1 eq {} {_renderEnd _render get dup null ne {load exec} {pop} ifelse} ifelse
  279.     /_render -1 ddef
  280. } def
  281. /Ta
  282. {
  283. pop
  284. } def
  285. /Tf
  286. {
  287. dup 1000 div /_fScl exch ddef
  288. exch findfont exch scalefont setfont
  289. } def
  290. /Tl
  291. {
  292. pop
  293. 0 exch _leading astore pop
  294. } def
  295. /Tt
  296. {
  297. pop
  298. } def
  299. /TW
  300. {
  301. 3 npop
  302. } def
  303. /Tw
  304. {
  305. /_cx exch ddef
  306. } def
  307. /TC
  308. {
  309. 3 npop
  310. } def
  311. /Tc
  312. {
  313. /_ax exch ddef
  314. } def
  315. /Ts
  316. {
  317. /_rise exch ddef
  318. currentpoint
  319. iTm
  320. moveto
  321. } def
  322. /Ti
  323. {
  324. 3 npop
  325. } def
  326. /Tz
  327. {
  328. 100 div /_hs exch ddef
  329. iTm
  330. } def
  331. /TA
  332. {
  333. pop
  334. } def
  335. /Tq
  336. {
  337. pop
  338. } def
  339. /Th
  340. {
  341. pop pop pop pop pop
  342. } def
  343. /TX {pop} def
  344. %/Tx
  345. %/Tj
  346. /Tk
  347. {
  348. exch pop _fScl mul neg 0 rmoveto
  349. } def
  350. /TK
  351. {
  352. 2 npop
  353. } def
  354. /T*
  355. {
  356. _leading aload pop neg Td
  357. } def
  358. /T*-
  359. {
  360. _leading aload pop Td
  361. } def
  362. /T-
  363. {
  364. _hyphen Tx
  365. } def
  366. /T+
  367. {} def
  368. /TR
  369. {
  370. _ctm currentmatrix pop     
  371. _tm astore pop 
  372. iTm 0 0 moveto 
  373. } def
  374. /TS
  375. {
  376. 0 eq {Tx} {Tj} ifelse
  377. } def
  378. currentdict readonly pop end
  379. setpacking
  380. %%EndResource
  381.